home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pcv05n08.zip / MACRO.BAT < prev    next >
DOS Batch File  |  1993-06-12  |  1KB  |  66 lines
  1. @ECHO OFF
  2. REM NAME:    MACRO.BAT
  3. REM PURPOSE: Run Macros From File
  4.  
  5. IF (%1)==(/?) GOTO HELP
  6.  
  7. rem IF NOT EXIST C:\MACRO\*.* MD C:\MACRO > nul
  8.  
  9. IF (%1)==() GOTO MISSING
  10. IF (%1)==(D) GOTO DISPLAY
  11. IF (%1)==(d) GOTO DISPLAY
  12. IF (%1)==(ABC123XYZ) GOTO SHOWTHEM
  13. IF (%2)==() GOTO RUN
  14. FOR %%J IN (0 1 2 3 4 5 6 7 8 9) DO IF (%1)==(%%J) GOTO DEFINE
  15. GOTO ERROR1
  16.  
  17. :ERROR1
  18. ECHO You entered an invalid parameter  
  19. GOTO MISSING
  20.  
  21. :ERROR2
  22. ECHO Commands are limited to nine words--yours was too long
  23. ECHO Everything from and including %9 was not recorded
  24. GOTO END
  25.  
  26. :ERROR3
  27. ECHO Macro (%1) does not exist
  28. GOTO MISSING
  29.  
  30. :RUN
  31. IF NOT EXIST C:\MACRO\%1.BAT GOTO ERROR3
  32. CALL C:\MACRO\%1.BAT
  33. GOTO END
  34.  
  35. :MISSING
  36. ECHO To define a macro, enter a number followed by commands
  37. ECHO (Valid numbers are 0 through 9) 
  38. ECHO To run an existing macro, enter its number
  39. ECHO The available macros are:
  40. GOTO DISPLAY
  41.  
  42. :DISPLAY
  43. FOR %%J IN (0 1 2 3 4 5 6 7 8 9) DO CALL MACRO ABC123XYZ %%J
  44. GOTO END
  45.  
  46. :SHOWTHEM
  47. IF NOT EXIST C:\MACRO\%2.BAT GOTO END
  48. ECHO --%2--
  49. TYPE C:\MACRO\%2.BAT | FIND /V "@ECHO OFF"
  50. GOTO END
  51.  
  52. :DEFINE
  53. SHIFT
  54. ECHO @ECHO OFF > C:\MACRO\%0.BAT
  55. ECHO %1 %2 %3 %4 %5 %6 %7 %8 %9 >> C:\MACRO\%0.BAT
  56. SHIFT
  57. IF NOT (%9)==() GOTO ERROR2
  58. GOTO END
  59.  
  60. :HELP
  61. ECHO MACRO.BAT enables you to define up to ten macros.
  62. ECHO They are stored as batch files in the directory C:\MACRO
  63. GOTO END
  64.  
  65. :END
  66.